home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1993 February
/
1993-02.d64
/
wait demo
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-09-20
|
367b
|
18 lines
0 clr
10 print"[147]"
20 fort=54272to54295:poket,0:next
30 poke54296,15
40 fort=1to300:next
50 poke54277,8
60 print" turn up volume and press any key...
70 [129]z[178]1[164]7
80 [141]200
90 [135]d1,d2,s$
100 [151]54273,d1:[151]54272,d2
110 [151]54276,16:[151]54276,17
120 [153]s$;
130 [130]:[128]
140 [131]25,30," one",18,209," byte's",18,209," the",19,239," same"
150 [131]18,209," as",23,181," eight",25,30," bits."
200 [146]198,1:[151]198,0:[142]